/* GET INLINE FILENAME */
call open(place, 'env:filequery')
wher = readln(place)

lng = LENGTH(wher)
x = lng - 2
fileC = SUBSTR( wher , 2 , x )
file = SUBSTR( wher , 2 , x )
 
parse var file ':' temp
if temp="" then temp=x
do forever
parse var temp FileName '/' temp
if temp ="" then break
end
soud = '<BGSOUND SRC="'
soud2 = '" LOOP=INFINITE>'
cap = '">'
str1 = '<A HREF="'
str2 = 'pics/'
str3 = 'sounds/'
str4 = '<IMG SRC="'
ADDRESS 'AV.REXX'
SETVAR ext FileName
SETVAR INLN1 str1
SETVAR endcap cap
SETVAR pdir str2
SETVAR sdir str3
SETVAR INN str4
SETVAR PATH2 fileC
SETVAR SND1 soud
SETVAR SND2 soud2